home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Programming / Python-1.4 / Source / Amiga / testset / sock.rexx < prev    next >
OS/2 REXX Batch file  |  1996-11-24  |  979b  |  54 lines
  1. /*****************************************************************************
  2.  
  3.     ARexx script showing how to use Python's socket host.
  4.  
  5. ******************************************************************************/
  6.  
  7. options results
  8.  
  9. address PY_SOCK
  10.  
  11. GETHOSTNAME
  12. hostname=RESULT
  13. say "Running on host" hostname
  14.  
  15. say "Getting daytime: "
  16. GETSERVBYNAME 'daytime'
  17. CONNECTSOCKET hostname RESULT
  18. sock=RESULT
  19. READSOCKET sock 100
  20. say RESULT
  21. CLOSESOCKET sock
  22.  
  23. say "Echo service:"
  24.  
  25. GETSERVBYNAME 'echo'
  26. CONNECTSOCKET hostname RESULT
  27. sock=RESULT
  28. WRITESOCKETCR sock 'foobar 1'
  29. READSOCKET sock 100
  30. say 'got back:' RESULT
  31. WRITESOCKETCR sock 'foobar 2'
  32. READSOCKET sock 100
  33. say 'got back:' RESULT
  34. CLOSESOCKET sock
  35.  
  36. say "Finger root@localhost:"
  37. GETSERVBYNAME 'finger'
  38. CONNECTSOCKET hostname RESULT
  39. sock=RESULT
  40. WRITESOCKETCR sock 'root'
  41. cont=0
  42. do while cont=0
  43.     READSOCKET sock 1000
  44.     cont=rc
  45.     if cont=0 then do
  46.         address; WRITECH(STDOUT,RESULT); address
  47.     end
  48. end
  49.  
  50. CLOSESOCKET sock
  51.  
  52. say "Complete."
  53.  
  54.